home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Mops 2.7 / Mops source / Asm Source / buildops < prev    next >
Encoding:
Text File  |  1992-09-12  |  621 b   |  27 lines  |  [TEXT/MSET]
  1. 32 hashdic OPERANDS    $ 1F setMask: operands  4000 allot: operands
  2.  
  3. operand    TEMPOP
  4.  
  5. : BUILDOPS
  6.     (Frefill)  drop
  7.     BEGIN
  8.         word" count  put: token
  9.         intrp1  setMode: tempOp        \ get mode
  10.         intrp1  setReg: tempOp        \ get register
  11.         tempOp token  enter: operands
  12.         0= abort" hash collision reading operands!!"
  13.         (Frefill)
  14.     NUNTIL  ;
  15.  
  16.  
  17. : LOADOPS  { addr len \ svQuery -- }
  18.     cr ." Loading operands"
  19.     pushNew: loadfile
  20.     addr len  name: topFile     0 setVref: topFile
  21.     openReadOnly: topFile        \ open "operands"
  22.     IF  206 asmError  THEN
  23.     buildops
  24.     drop: loadfile
  25.     pos: operands  strt: operands  -
  26.     cr ." Size of operands dictionary: " .  ;
  27.